(defun c:plcolor ()
  (setq this-pline (entsel))
  (setq this-ent (entget (car this-pline)))
  (if uint nil (load "uint" "\File UINT.LSP not loaded! "))
  (setq this-color (uint 1 "" "Enter #" (if this-color (1+ this-color))))
  (setq this-ent (subst (cons 62 this-color)(assoc 62 this-ent)this-ent))
  (entmod this-ent)
  (princ)
)
(defun c:replcolor ()
  (setq plss (ssget '((0 . "polyline"))))
  (setq cnt 0)
  (while (< cnt (sslength plss))
    (setq this-ent (entget (ssname plss cnt)))
    (setq this-color (+ (CDR (ASSOC 62 this-ent)) 41))
    (setq this-ent (subst (cons 62 this-color)(assoc 62 this-ent)this-ent))
    (entmod this-ent)
    (setq cnt (1+ cnt))
  )
)